home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / tex / macros / misc / hhline.sty < prev    next >
Encoding:
Text File  |  1994-05-20  |  4.1 KB  |  113 lines
  1. %% 
  2. %% This is file `hhline.sty', generated 
  3. %% on <1994/5/20> with the docstrip utility (2.0r).
  4. %% 
  5. %% The original source files were:
  6. %% 
  7. %% hhline.doc  (with options: `style')
  8. %% 
  9. %% This file is part of the array package. 
  10. %% --------------------------------------- 
  11. %% 
  12. %% It is a contributed file. 
  13. %% In case of errors please inform the original author. 
  14. %% 
  15. %% The checksum in the header refers to the documented version of 
  16. %% the file. 
  17. %% 
  18.  
  19.  
  20. %%% ====================================================================
  21. %%%  @LaTeX-style-file{
  22. %%%     author          = "David Carlisle",
  23. %%%     version         = "2.01",
  24. %%%     date            = "26 June 1992",
  25. %%%     time            = "14:59:06 BST",
  26. %%%     filename        = "hhline.sty",
  27. %%%     address         = "Computer Science Department
  28. %%%                        Manchester University
  29. %%%                        Oxford Road
  30. %%%                        Manchester
  31. %%%                        England
  32. %%%                        M13 9PL",
  33. %%%     telephone       = "+44 61 275 6139",
  34. %%%     FAX             = "+44 61 275 6236",
  35. %%%     checksum        = "35688 370 1639 13144",
  36. %%%     email           = "carlisle@cs.man.ac.uk (Internet)",
  37. %%%     codetable       = "ISO/ASCII",
  38. %%%     keywords        = "LaTeX, array, tabular, hline",
  39. %%%     supported       = "yes",
  40. %%%     docstring       = "
  41. %%%
  42. %%%     hhline.sty
  43. %%%
  44. %%%     LaTeX style option defining an alternative to \hline for
  45. %%%     producing horizontal lines in tables. This allows user level
  46. %%%     control over the interaction with vertical lines.
  47. %%%
  48. %%%     The checksum field above was produced by
  49. %%%     Robert Solovay's checksum utility.",
  50. %%%  }
  51. %%% ====================================================================
  52. \def\fileversion{v2.01}
  53. \def\filedate{92/06/26}
  54. \def\docdate {92/06/26}
  55. \@ifundefined{hhline}{}{\endinput}
  56. \wlog{Style-Option: `hhline' \fileversion
  57.          \space\space <\filedate> (D.P.C.)}
  58. \wlog{English documentation dated \space <\docdate> (D.P.C.)}
  59. \def\HH@box#1#2{\vbox{%
  60.   \hrule \@height \arrayrulewidth \@width #1
  61.   \vskip \doublerulesep
  62.   \hrule \@height \arrayrulewidth \@width #2}}
  63. \def\HH@add#1{\toks@\expandafter{\the\toks@#1}}
  64.  
  65. \def\HH@xexpast#1*#2#3#4\@@{%
  66.    \@tempcnta #2
  67.    \toks@={#1}\@temptokena={#3}%
  68.    \let\the@toksz\relax \let\the@toks\relax
  69.    \def\@tempa{\the@toksz}%
  70.    \ifnum\@tempcnta >0 \@whilenum\@tempcnta >0\do
  71.      {\edef\@tempa{\@tempa\the@toks}\advance \@tempcnta \m@ne}%
  72.        \let \@tempb \HH@xexpast \else
  73.        \let \@tempb \HH@xexnoop \fi
  74.    \def\the@toksz{\the\toks@}\def\the@toks{\the\@temptokena}%
  75.    \edef\@tempa{\@tempa}%
  76.    \expandafter \@tempb \@tempa #4\@@}
  77.  
  78. \def\HH@xexnoop#1\@@{}
  79. \def\hhline#1{\omit\@firstamptrue\@tempswafalse
  80. \global\setbox\@ne\HH@box\doublerulesep\doublerulesep
  81.   \xdef\@tempc{\ifx\extrarowheight\HH@undef\hskip-.5\arrayrulewidth\fi}%
  82.     \HH@xexpast\relax#1*0x\@@\toks@{}\expandafter\HH@let\@tempa`}
  83.  
  84. \def\HH@let#1{\futurelet\@tempb\HH@loop}
  85.  
  86. \def\HH@loop{%
  87.   \ifx\@tempb`\def\next##1{\the\toks@\cr}\else\let\next\HH@let
  88.   \ifx\@tempb|\if@tempswa\HH@add{\hskip\doublerulesep}\fi\@tempswatrue
  89.           \HH@add{\@tempc\vline\@tempc}\else
  90.   \ifx\@tempb:\if@tempswa\HH@add{\hskip\doublerulesep}\fi\@tempswatrue
  91.       \HH@add{\@tempc\HH@box\arrayrulewidth\arrayrulewidth\@tempc}\else
  92.   \ifx\@tempb##\if@tempswa\HH@add{\hskip\doublerulesep}\fi\@tempswatrue
  93.          \HH@add{\@tempc\vline\@tempc\copy\@ne\@tempc\vline\@tempc}\else
  94.   \ifx\@tempb~\@tempswafalse
  95.            \if@firstamp\@firstampfalse\else\HH@add{&\omit}\fi
  96.               \HH@add{\hfil}\else
  97.   \ifx\@tempb-\@tempswafalse
  98.            \if@firstamp\@firstampfalse\else\HH@add{&\omit}\fi
  99.               \HH@add{\leaders\hrule\@height\arrayrulewidth\hfil}\else
  100.   \ifx\@tempb=\@tempswafalse
  101.        \if@firstamp\@firstampfalse\else\HH@add{&\omit}\fi
  102.        \HH@add
  103.           {\rlap{\copy\@ne}\leaders\copy\@ne\hfil\llap{\copy\@ne}}\else
  104.   \ifx\@tempb t\HH@add{\rlap{\HH@box\doublerulesep\z@}}\else
  105.   \ifx\@tempb b\HH@add{\rlap{\HH@box\z@\doublerulesep}}\else
  106.   \@warning
  107.       {\meaning\@tempb\space ignored in \string\hhline\space argument}%
  108.   \fi\fi\fi\fi\fi\fi\fi\fi\fi
  109.   \next}
  110. \endinput
  111. %% 
  112. %% End of file `hhline.sty'.
  113.